home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 24 / Amiga Format AFCD24 (Feb 1998, Issue 108).iso / -seriously_amiga- / shareware / graphics / sviewng / arexx-scripts / setsvdriver.rx < prev    next >
Text File  |  1998-01-12  |  888b  |  52 lines
  1. /*
  2.    $VER: SetDriver.rx V6.21 (17.3.97)
  3.    © 1993-97 by Andreas R. Kleinert
  4.  
  5.    This script demonstrates how to modify the global SVDriver preferences
  6.    by using SViewNG's ARexxPort.
  7.  
  8.    The resulting changes will also appear on SViewNG's GUI,
  9.    if already open.
  10.  
  11. */
  12.  
  13. address command
  14.  
  15. SViewNG "-INSTALL_APPMENU=FALSE -INSTALL_APPICON=FALSE"
  16.  
  17. say ""
  18. say "ARexx: SViewNG has been started : Waiting a moment..."
  19.  
  20. wait 5
  21.  
  22. OPTIONS RESULTS
  23. SIGNAL ON ERROR
  24. SVNGPORT = 'SViewNG.rx'
  25. SVPORT   = 'SuperView.rx'
  26.  
  27. IF ~SHOW('P',SVPORT) THEN SVPORT = SVNGPORT
  28. IF ~SHOW('P',SVPORT) THEN DO
  29.   say "Could not locate ARexx port of SViewNG !"
  30.   CALL ErrorOut 0
  31. END
  32.  
  33. ADDRESS VALUE SVPORT
  34.  
  35. 'SVDRIVER=ECS ScreenDriver'
  36.  
  37. address command wait 5
  38.  
  39. 'SVDRIVER=AGA ScreenDriver'
  40.  
  41. CALL ErrorOut 0
  42.  
  43.  
  44. /* Errorout procedure ----------------------- */
  45.  
  46. ErrorOut:
  47.         PARSE ARG ExitCode
  48.  
  49.         EXIT ExitCode
  50.  
  51.   END
  52.